home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 5 #3 / Selectware - The Ultimate Software Demonstration System - Selectware.ISO / bor10012 / rtsys.pak / DBMSQL.BND (.txt) < prev    next >
Encoding:
DB2 Bind  |  1992-06-10  |  30.2 KB  |  805 lines
  1. DBMSQL  mAj4QTFIUSERID  0
  2. INCLUDE    SQLCA
  3. INCLUDE    SQLDA
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. DECLARE c1  CURSOR WITH HOLD for stmt1
  7. DECLARE c2  CURSOR WITH HOLD for stmt2
  8. DECLARE c3  CURSOR WITH HOLD for stmt3
  9. DECLARE c4  CURSOR WITH HOLD for stmt4
  10. DECLARE c5  CURSOR WITH HOLD for stmt5
  11. DECLARE c6  CURSOR WITH HOLD for stmt6
  12. DECLARE c7  CURSOR WITH HOLD for stmt7
  13. DECLARE c8  CURSOR WITH HOLD for stmt8
  14. DECLARE c9  CURSOR WITH HOLD for stmt9
  15. DECLARE c10 CURSOR WITH HOLD for stmt10
  16. DECLARE c11 CURSOR WITH HOLD for stmt11
  17. DECLARE c12 CURSOR WITH HOLD for stmt12
  18. DECLARE c13 CURSOR WITH HOLD for stmt13
  19. DECLARE c14 CURSOR WITH HOLD for stmt14
  20. DECLARE c15 CURSOR WITH HOLD for stmt15
  21. DECLARE c16 CURSOR WITH HOLD for stmt16
  22. DECLARE c17 CURSOR WITH HOLD for stmt17
  23. DECLARE c18 CURSOR WITH HOLD for stmt18
  24. DECLARE c19 CURSOR WITH HOLD for stmt19
  25. DECLARE c20 CURSOR WITH HOLD for stmt20
  26. DECLARE c21 CURSOR WITH HOLD for stmt21
  27. DECLARE c22 CURSOR WITH HOLD for stmt22
  28. DECLARE c23 CURSOR WITH HOLD for stmt23
  29. DECLARE c24 CURSOR WITH HOLD for stmt24
  30. DECLARE c25 CURSOR WITH HOLD for stmt25
  31. DECLARE c26 CURSOR WITH HOLD for stmt26
  32. DECLARE c27 CURSOR WITH HOLD for stmt27
  33. DECLARE c28 CURSOR WITH HOLD for stmt28
  34. DECLARE c29 CURSOR WITH HOLD for stmt29
  35. DECLARE c30 CURSOR WITH HOLD for stmt30
  36. DECLARE c31 CURSOR WITH HOLD for stmt31
  37. DECLARE c32 CURSOR WITH HOLD for stmt32
  38. DECLARE c33 CURSOR WITH HOLD for stmt33
  39. DECLARE c34 CURSOR WITH HOLD for stmt34
  40. DECLARE c35 CURSOR WITH HOLD for stmt35
  41. DECLARE c36 CURSOR WITH HOLD for stmt36
  42. DECLARE c37 CURSOR WITH HOLD for stmt37
  43. DECLARE c38 CURSOR WITH HOLD for stmt38
  44. DECLARE c39 CURSOR WITH HOLD for stmt39
  45. DECLARE c40 CURSOR WITH HOLD for stmt40
  46. DECLARE c41 CURSOR WITH HOLD for stmt41
  47. DECLARE c42 CURSOR WITH HOLD for stmt42
  48. DECLARE c43 CURSOR WITH HOLD for stmt43
  49. DECLARE c44 CURSOR WITH HOLD for stmt44
  50. DECLARE c45 CURSOR WITH HOLD for stmt45
  51. DECLARE c46 CURSOR WITH HOLD for stmt46
  52. DECLARE c47 CURSOR WITH HOLD for stmt47
  53. DECLARE c48 CURSOR WITH HOLD for stmt48
  54. DECLARE c49 CURSOR WITH HOLD for stmt49
  55. DECLARE c50 CURSOR WITH HOLD for stmt50
  56. DECLARE c51 CURSOR WITH HOLD for stmt51
  57. DECLARE c52 CURSOR WITH HOLD for stmt52
  58. DECLARE c53 CURSOR WITH HOLD for stmt53
  59. DECLARE c54 CURSOR WITH HOLD for stmt54
  60. DECLARE c55 CURSOR WITH HOLD for stmt55
  61. DECLARE c56 CURSOR WITH HOLD for stmt56
  62. DECLARE c57 CURSOR WITH HOLD for stmt57
  63. DECLARE c58 CURSOR WITH HOLD for stmt58
  64. DECLARE c59 CURSOR WITH HOLD for stmt59
  65. DECLARE c60 CURSOR WITH HOLD for stmt60
  66. DECLARE c61 CURSOR WITH HOLD for stmt61
  67. DECLARE c62 CURSOR WITH HOLD for stmt62
  68. DECLARE c63 CURSOR WITH HOLD for stmt63
  69. DECLARE c64 CURSOR WITH HOLD for stmt64
  70. DECLARE c65 CURSOR WITH HOLD for stmt65
  71. DECLARE c66 CURSOR WITH HOLD for stmt66
  72. DECLARE c67 CURSOR WITH HOLD for stmt67
  73. DECLARE c68 CURSOR WITH HOLD for stmt68
  74. DECLARE c69 CURSOR WITH HOLD for stmt69
  75. DECLARE c70 CURSOR WITH HOLD for stmt70
  76. DECLARE c71 CURSOR WITH HOLD for stmt71
  77. DECLARE c72 CURSOR WITH HOLD for stmt72
  78. DECLARE c73 CURSOR WITH HOLD for stmt73
  79. DECLARE c74 CURSOR WITH HOLD for stmt74
  80. DECLARE c75 CURSOR WITH HOLD for stmt75
  81. DECLARE c76 CURSOR WITH HOLD for stmt76
  82. DECLARE c77 CURSOR WITH HOLD for stmt77
  83. DECLARE c78 CURSOR WITH HOLD for stmt78
  84. DECLARE c79 CURSOR WITH HOLD for stmt79
  85. DECLARE c80 CURSOR WITH HOLD for stmt80
  86. DECLARE c81 CURSOR WITH HOLD for stmt81
  87. DECLARE c82 CURSOR WITH HOLD for stmt82
  88. DECLARE c83 CURSOR WITH HOLD for stmt83
  89. DECLARE c84 CURSOR WITH HOLD for stmt84
  90. DECLARE c85 CURSOR WITH HOLD for stmt85
  91. DECLARE c86 CURSOR WITH HOLD for stmt86
  92. DECLARE c87 CURSOR WITH HOLD for stmt87
  93. DECLARE c88 CURSOR WITH HOLD for stmt88
  94. DECLARE c89 CURSOR WITH HOLD for stmt89
  95. DECLARE c90 CURSOR WITH HOLD for stmt90
  96. DECLARE c91 CURSOR WITH HOLD for stmt91
  97. DECLARE c92 CURSOR WITH HOLD for stmt92
  98. DECLARE c93 CURSOR WITH HOLD for stmt93
  99. DECLARE c94 CURSOR WITH HOLD for stmt94
  100. DECLARE c95 CURSOR WITH HOLD for stmt95
  101. DECLARE c96 CURSOR WITH HOLD for stmt96
  102. DECLARE c97 CURSOR WITH HOLD for stmt97
  103. DECLARE c98 CURSOR WITH HOLD for stmt98
  104. DECLARE c99 CURSOR WITH HOLD for stmt99
  105. DECLARE c100 CURSOR WITH HOLD for stmt100
  106. DECLARE c101 CURSOR WITH HOLD for stmt101
  107. DECLARE c102 CURSOR WITH HOLD for stmt102
  108. DECLARE c103 CURSOR WITH HOLD for stmt103
  109. DECLARE c104 CURSOR WITH HOLD for stmt104
  110. DECLARE c105 CURSOR WITH HOLD for stmt105
  111. DECLARE c106 CURSOR WITH HOLD for stmt106
  112. DECLARE c107 CURSOR WITH HOLD for stmt107
  113. DECLARE c108 CURSOR WITH HOLD for stmt108
  114. DECLARE c109 CURSOR WITH HOLD for stmt109
  115. DECLARE c110 CURSOR WITH HOLD for stmt110
  116. DECLARE c111 CURSOR WITH HOLD for stmt111
  117. DECLARE c112 CURSOR WITH HOLD for stmt112
  118. DECLARE c113 CURSOR WITH HOLD for stmt113
  119. DECLARE c114 CURSOR WITH HOLD for stmt114
  120. DECLARE c115 CURSOR WITH HOLD for stmt115
  121. DECLARE c116 CURSOR WITH HOLD for stmt116
  122. DECLARE c117 CURSOR WITH HOLD for stmt117
  123. DECLARE c118 CURSOR WITH HOLD for stmt118
  124. DECLARE c119 CURSOR WITH HOLD for stmt119
  125. DECLARE c120 CURSOR WITH HOLD for stmt120
  126. DECLARE c121 CURSOR WITH HOLD for stmt121
  127. DECLARE c122 CURSOR WITH HOLD for stmt122
  128. DECLARE c123 CURSOR WITH HOLD for stmt123
  129. DECLARE c124 CURSOR WITH HOLD for stmt124
  130. DECLARE c125 CURSOR WITH HOLD for stmt125
  131. DECLARE c126 CURSOR WITH HOLD for stmt126
  132. DECLARE c127 CURSOR WITH HOLD for stmt127
  133. DECLARE c128 CURSOR WITH HOLD for stmt128
  134. DECLARE c129 CURSOR WITH HOLD for stmt129
  135. OPEN c1
  136. OPEN c2
  137. OPEN c3
  138. OPEN c4
  139. OPEN c5
  140. OPEN c6
  141. OPEN c7
  142. OPEN c8
  143. OPEN c9
  144. OPEN c10
  145. OPEN c11
  146. OPEN c12
  147. OPEN c13
  148. OPEN c14
  149. OPEN c15
  150. OPEN c16
  151. OPEN c17
  152. OPEN c18
  153. OPEN c19
  154. OPEN c20
  155. OPEN c21
  156. OPEN c22
  157. OPEN c23
  158. OPEN c24
  159. OPEN c25
  160. OPEN c26
  161. OPEN c27
  162. OPEN c28
  163. OPEN c29
  164. OPEN c30
  165. OPEN c31
  166. OPEN c32
  167. OPEN c33
  168. OPEN c34
  169. OPEN c35
  170. OPEN c36
  171. OPEN c37
  172. OPEN c38
  173. OPEN c39
  174. OPEN c40
  175. OPEN c41
  176. OPEN c42
  177. OPEN c43
  178. OPEN c44
  179. OPEN c45
  180. OPEN c46
  181. OPEN c47
  182. OPEN c48
  183. OPEN c49
  184. OPEN c50
  185. OPEN c51
  186. OPEN c52
  187. OPEN c53
  188. OPEN c54
  189. OPEN c55
  190. OPEN c56
  191. OPEN c57
  192. OPEN c58
  193. OPEN c59
  194. OPEN c60
  195. OPEN c61
  196. OPEN c62
  197. OPEN c63
  198. OPEN c64
  199. OPEN c65
  200. OPEN c66
  201. OPEN c67
  202. OPEN c68
  203. OPEN c69
  204. OPEN c70
  205. OPEN c71
  206. OPEN c72
  207. OPEN c73
  208. OPEN c74
  209. OPEN c75
  210. OPEN c76
  211. OPEN c77
  212. OPEN c78
  213. OPEN c79
  214. OPEN c80
  215. OPEN c81
  216. OPEN c82
  217. OPEN c83
  218. OPEN c84
  219. OPEN c85
  220. OPEN c86
  221. OPEN c87
  222. OPEN c88
  223. OPEN c89
  224. OPEN c90
  225. OPEN c91
  226. OPEN c92
  227. OPEN c93
  228. OPEN c94
  229. OPEN c95
  230. OPEN c96
  231. OPEN c97
  232. OPEN c98
  233. OPEN c99
  234. OPEN c100
  235. OPEN c101
  236. OPEN c102
  237. OPEN c103
  238. OPEN c104
  239. OPEN c105
  240. OPEN c106
  241. OPEN c107
  242. OPEN c108
  243. OPEN c109
  244. OPEN c110
  245. OPEN c111
  246. OPEN c112
  247. OPEN c113
  248. OPEN c114
  249. OPEN c115
  250. OPEN c116
  251. OPEN c117
  252. OPEN c118
  253. OPEN c119
  254. OPEN c120
  255. OPEN c121
  256. OPEN c122
  257. OPEN c123
  258. OPEN c124
  259. OPEN c125
  260. OPEN c126
  261. OPEN c127
  262. OPEN c128
  263. FETCH c1 USING DESCRIPTOR :pSqlda 
  264. FETCH c2 USING DESCRIPTOR :pSqlda 
  265. FETCH c3 USING DESCRIPTOR :pSqlda 
  266. FETCH c4 USING DESCRIPTOR :pSqlda 
  267. FETCH c5 USING DESCRIPTOR :pSqlda 
  268. FETCH c6 USING DESCRIPTOR :pSqlda 
  269. FETCH c7 USING DESCRIPTOR :pSqlda 
  270. FETCH c8 USING DESCRIPTOR :pSqlda 
  271. FETCH c9 USING DESCRIPTOR :pSqlda 
  272. FETCH c10 USING DESCRIPTOR :pSqlda 
  273. FETCH c11 USING DESCRIPTOR :pSqlda 
  274. FETCH c12 USING DESCRIPTOR :pSqlda 
  275. FETCH c13 USING DESCRIPTOR :pSqlda 
  276. FETCH c14 USING DESCRIPTOR :pSqlda 
  277. FETCH c15 USING DESCRIPTOR :pSqlda 
  278. FETCH c16 USING DESCRIPTOR :pSqlda 
  279. FETCH c17 USING DESCRIPTOR :pSqlda 
  280. FETCH c18 USING DESCRIPTOR :pSqlda 
  281. FETCH c19 USING DESCRIPTOR :pSqlda 
  282. FETCH c20 USING DESCRIPTOR :pSqlda 
  283. FETCH c21 USING DESCRIPTOR :pSqlda 
  284. FETCH c22 USING DESCRIPTOR :pSqlda 
  285. FETCH c23 USING DESCRIPTOR :pSqlda 
  286. FETCH c24 USING DESCRIPTOR :pSqlda 
  287. FETCH c25 USING DESCRIPTOR :pSqlda 
  288. FETCH c26 USING DESCRIPTOR :pSqlda 
  289. FETCH c27 USING DESCRIPTOR :pSqlda 
  290. FETCH c28 USING DESCRIPTOR :pSqlda 
  291. FETCH c29 USING DESCRIPTOR :pSqlda 
  292. FETCH c30 USING DESCRIPTOR :pSqlda 
  293. FETCH c31 USING DESCRIPTOR :pSqlda 
  294. FETCH c32 USING DESCRIPTOR :pSqlda 
  295. FETCH c33 USING DESCRIPTOR :pSqlda 
  296. FETCH c34 USING DESCRIPTOR :pSqlda 
  297. FETCH c35 USING DESCRIPTOR :pSqlda 
  298. FETCH c36 USING DESCRIPTOR :pSqlda 
  299. FETCH c37 USING DESCRIPTOR :pSqlda 
  300. FETCH c38 USING DESCRIPTOR :pSqlda 
  301. FETCH c39 USING DESCRIPTOR :pSqlda 
  302. FETCH c40 USING DESCRIPTOR :pSqlda 
  303. FETCH c41 USING DESCRIPTOR :pSqlda 
  304. FETCH c42 USING DESCRIPTOR :pSqlda 
  305. FETCH c43 USING DESCRIPTOR :pSqlda 
  306. FETCH c44 USING DESCRIPTOR :pSqlda 
  307. FETCH c45 USING DESCRIPTOR :pSqlda 
  308. FETCH c46 USING DESCRIPTOR :pSqlda 
  309. FETCH c47 USING DESCRIPTOR :pSqlda 
  310. FETCH c48 USING DESCRIPTOR :pSqlda 
  311. FETCH c49 USING DESCRIPTOR :pSqlda 
  312. FETCH c50 USING DESCRIPTOR :pSqlda 
  313. FETCH c51 USING DESCRIPTOR :pSqlda 
  314. FETCH c52 USING DESCRIPTOR :pSqlda 
  315. FETCH c53 USING DESCRIPTOR :pSqlda 
  316. FETCH c54 USING DESCRIPTOR :pSqlda 
  317. FETCH c55 USING DESCRIPTOR :pSqlda 
  318. FETCH c56 USING DESCRIPTOR :pSqlda 
  319. FETCH c57 USING DESCRIPTOR :pSqlda 
  320. FETCH c58 USING DESCRIPTOR :pSqlda 
  321. FETCH c59 USING DESCRIPTOR :pSqlda 
  322. FETCH c60 USING DESCRIPTOR :pSqlda 
  323. FETCH c61 USING DESCRIPTOR :pSqlda 
  324. FETCH c62 USING DESCRIPTOR :pSqlda 
  325. FETCH c63 USING DESCRIPTOR :pSqlda 
  326. FETCH c64 USING DESCRIPTOR :pSqlda 
  327. FETCH c65 USING DESCRIPTOR :pSqlda 
  328. FETCH c66 USING DESCRIPTOR :pSqlda 
  329. FETCH c67 USING DESCRIPTOR :pSqlda 
  330. FETCH c68 USING DESCRIPTOR :pSqlda 
  331. FETCH c69 USING DESCRIPTOR :pSqlda 
  332. FETCH c70 USING DESCRIPTOR :pSqlda 
  333. FETCH c71 USING DESCRIPTOR :pSqlda 
  334. FETCH c72 USING DESCRIPTOR :pSqlda 
  335. FETCH c73 USING DESCRIPTOR :pSqlda 
  336. FETCH c74 USING DESCRIPTOR :pSqlda 
  337. FETCH c75 USING DESCRIPTOR :pSqlda 
  338. FETCH c76 USING DESCRIPTOR :pSqlda 
  339. FETCH c77 USING DESCRIPTOR :pSqlda 
  340. FETCH c78 USING DESCRIPTOR :pSqlda 
  341. FETCH c79 USING DESCRIPTOR :pSqlda 
  342. FETCH c80 USING DESCRIPTOR :pSqlda 
  343. FETCH c81 USING DESCRIPTOR :pSqlda 
  344. FETCH c82 USING DESCRIPTOR :pSqlda 
  345. FETCH c83 USING DESCRIPTOR :pSqlda 
  346. FETCH c84 USING DESCRIPTOR :pSqlda 
  347. FETCH c85 USING DESCRIPTOR :pSqlda 
  348. FETCH c86 USING DESCRIPTOR :pSqlda 
  349. FETCH c87 USING DESCRIPTOR :pSqlda 
  350. FETCH c88 USING DESCRIPTOR :pSqlda 
  351. FETCH c89 USING DESCRIPTOR :pSqlda 
  352. FETCH c90 USING DESCRIPTOR :pSqlda 
  353. FETCH c91 USING DESCRIPTOR :pSqlda 
  354. FETCH c92 USING DESCRIPTOR :pSqlda 
  355. FETCH c93 USING DESCRIPTOR :pSqlda 
  356. FETCH c94 USING DESCRIPTOR :pSqlda 
  357. FETCH c95 USING DESCRIPTOR :pSqlda 
  358. FETCH c96 USING DESCRIPTOR :pSqlda 
  359. FETCH c97 USING DESCRIPTOR :pSqlda 
  360. FETCH c98 USING DESCRIPTOR :pSqlda 
  361. FETCH c99 USING DESCRIPTOR :pSqlda 
  362. FETCH c100 USING DESCRIPTOR :pSqlda 
  363. FETCH c101 USING DESCRIPTOR :pSqlda 
  364. FETCH c102 USING DESCRIPTOR :pSqlda 
  365. FETCH c103 USING DESCRIPTOR :pSqlda 
  366. FETCH c104 USING DESCRIPTOR :pSqlda 
  367. FETCH c105 USING DESCRIPTOR :pSqlda 
  368. FETCH c106 USING DESCRIPTOR :pSqlda 
  369. FETCH c107 USING DESCRIPTOR :pSqlda 
  370. FETCH c108 USING DESCRIPTOR :pSqlda 
  371. FETCH c109 USING DESCRIPTOR :pSqlda 
  372. FETCH c110 USING DESCRIPTOR :pSqlda 
  373. FETCH c111 USING DESCRIPTOR :pSqlda 
  374. FETCH c112 USING DESCRIPTOR :pSqlda 
  375. FETCH c113 USING DESCRIPTOR :pSqlda 
  376. FETCH c114 USING DESCRIPTOR :pSqlda 
  377. FETCH c115 USING DESCRIPTOR :pSqlda 
  378. FETCH c116 USING DESCRIPTOR :pSqlda 
  379. FETCH c117 USING DESCRIPTOR :pSqlda 
  380. FETCH c118 USING DESCRIPTOR :pSqlda 
  381. FETCH c119 USING DESCRIPTOR :pSqlda 
  382. FETCH c120 USING DESCRIPTOR :pSqlda 
  383. FETCH c121 USING DESCRIPTOR :pSqlda 
  384. FETCH c122 USING DESCRIPTOR :pSqlda 
  385. FETCH c123 USING DESCRIPTOR :pSqlda 
  386. FETCH c124 USING DESCRIPTOR :pSqlda 
  387. FETCH c125 USING DESCRIPTOR :pSqlda 
  388. FETCH c126 USING DESCRIPTOR :pSqlda 
  389. FETCH c127 USING DESCRIPTOR :pSqlda 
  390. FETCH c128 USING DESCRIPTOR :pSqlda 
  391. CLOSE c1
  392. CLOSE c2
  393. CLOSE c3
  394. CLOSE c4
  395. CLOSE c5
  396. CLOSE c6
  397. CLOSE c7
  398. CLOSE c8
  399. CLOSE c9
  400. CLOSE c10
  401. CLOSE c11
  402. CLOSE c12
  403. CLOSE c13
  404. CLOSE c14
  405. CLOSE c15
  406. CLOSE c16
  407. CLOSE c17
  408. CLOSE c18
  409. CLOSE c19
  410. CLOSE c20
  411. CLOSE c21
  412. CLOSE c22
  413. CLOSE c23
  414. CLOSE c24
  415. CLOSE c25
  416. CLOSE c26
  417. CLOSE c27
  418. CLOSE c28
  419. CLOSE c29
  420. CLOSE c30
  421. CLOSE c31
  422. CLOSE c32
  423. CLOSE c33
  424. CLOSE c34
  425. CLOSE c35
  426. CLOSE c36
  427. CLOSE c37
  428. CLOSE c38
  429. CLOSE c39
  430. CLOSE c40
  431. CLOSE c41
  432. CLOSE c42
  433. CLOSE c43
  434. CLOSE c44
  435. CLOSE c45
  436. CLOSE c46
  437. CLOSE c47
  438. CLOSE c48
  439. CLOSE c49
  440. CLOSE c50
  441. CLOSE c51
  442. CLOSE c52
  443. CLOSE c53
  444. CLOSE c54
  445. CLOSE c55
  446. CLOSE c56
  447. CLOSE c57
  448. CLOSE c58
  449. CLOSE c59
  450. CLOSE c60
  451. CLOSE c61
  452. CLOSE c62
  453. CLOSE c63
  454. CLOSE c64
  455. CLOSE c65
  456. CLOSE c66
  457. CLOSE c67
  458. CLOSE c68
  459. CLOSE c69
  460. CLOSE c70
  461. CLOSE c71
  462. CLOSE c72
  463. CLOSE c73
  464. CLOSE c74
  465. CLOSE c75
  466. CLOSE c76
  467. CLOSE c77
  468. CLOSE c78
  469. CLOSE c79
  470. CLOSE c80
  471. CLOSE c81
  472. CLOSE c82
  473. CLOSE c83
  474. CLOSE c84
  475. CLOSE c85
  476. CLOSE c86
  477. CLOSE c87
  478. CLOSE c88
  479. CLOSE c89
  480. CLOSE c90
  481. CLOSE c91
  482. CLOSE c92
  483. CLOSE c93
  484. CLOSE c94
  485. CLOSE c95
  486. CLOSE c96
  487. CLOSE c97
  488. CLOSE c98
  489. CLOSE c99
  490. CLOSE c100
  491. CLOSE c101
  492. CLOSE c102
  493. CLOSE c103
  494. CLOSE c104
  495. CLOSE c105
  496. CLOSE c106
  497. CLOSE c107
  498. CLOSE c108
  499. CLOSE c109
  500. CLOSE c110
  501. CLOSE c111
  502. CLOSE c112
  503. CLOSE c113
  504. CLOSE c114
  505. CLOSE c115
  506. CLOSE c116
  507. CLOSE c117
  508. CLOSE c118
  509. CLOSE c119
  510. CLOSE c120
  511. CLOSE c121
  512. CLOSE c122
  513. CLOSE c123
  514. CLOSE c124
  515. CLOSE c125
  516. CLOSE c126
  517. CLOSE c127
  518. CLOSE c128
  519. PREPARE stmt1 INTO :sqlda FROM :pszSqlG
  520. PREPARE stmt2 INTO :sqlda FROM :pszSqlG
  521. PREPARE stmt3 INTO :sqlda FROM :pszSqlG
  522. PREPARE stmt4 INTO :sqlda FROM :pszSqlG
  523. PREPARE stmt5 INTO :sqlda FROM :pszSqlG
  524. PREPARE stmt6 INTO :sqlda FROM :pszSqlG
  525. PREPARE stmt7 INTO :sqlda FROM :pszSqlG
  526. PREPARE stmt8 INTO :sqlda FROM :pszSqlG
  527. PREPARE stmt9 INTO :sqlda FROM :pszSqlG
  528. PREPARE stmt10 INTO :sqlda FROM :pszSqlG
  529. PREPARE stmt11 INTO :sqlda FROM :pszSqlG
  530. PREPARE stmt12 INTO :sqlda FROM :pszSqlG
  531. PREPARE stmt13 INTO :sqlda FROM :pszSqlG
  532. PREPARE stmt14 INTO :sqlda FROM :pszSqlG
  533. PREPARE stmt15 INTO :sqlda FROM :pszSqlG
  534. PREPARE stmt16 INTO :sqlda FROM :pszSqlG
  535. PREPARE stmt17 INTO :sqlda FROM :pszSqlG
  536. PREPARE stmt18 INTO :sqlda FROM :pszSqlG
  537. PREPARE stmt19 INTO :sqlda FROM :pszSqlG
  538. PREPARE stmt20 INTO :sqlda FROM :pszSqlG
  539. PREPARE stmt21 INTO :sqlda FROM :pszSqlG
  540. PREPARE stmt22 INTO :sqlda FROM :pszSqlG
  541. PREPARE stmt23 INTO :sqlda FROM :pszSqlG
  542. PREPARE stmt24 INTO :sqlda FROM :pszSqlG
  543. PREPARE stmt25 INTO :sqlda FROM :pszSqlG
  544. PREPARE stmt26 INTO :sqlda FROM :pszSqlG
  545. PREPARE stmt27 INTO :sqlda FROM :pszSqlG
  546. PREPARE stmt28 INTO :sqlda FROM :pszSqlG
  547. PREPARE stmt29 INTO :sqlda FROM :pszSqlG
  548. PREPARE stmt30 INTO :sqlda FROM :pszSqlG
  549. PREPARE stmt31 INTO :sqlda FROM :pszSqlG
  550. PREPARE stmt32 INTO :sqlda FROM :pszSqlG
  551. PREPARE stmt33 INTO :sqlda FROM :pszSqlG
  552. PREPARE stmt34 INTO :sqlda FROM :pszSqlG
  553. PREPARE stmt35 INTO :sqlda FROM :pszSqlG
  554. PREPARE stmt36 INTO :sqlda FROM :pszSqlG
  555. PREPARE stmt37 INTO :sqlda FROM :pszSqlG
  556. PREPARE stmt38 INTO :sqlda FROM :pszSqlG
  557. PREPARE stmt39 INTO :sqlda FROM :pszSqlG
  558. PREPARE stmt40 INTO :sqlda FROM :pszSqlG
  559. PREPARE stmt41 INTO :sqlda FROM :pszSqlG
  560. PREPARE stmt42 INTO :sqlda FROM :pszSqlG
  561. PREPARE stmt43 INTO :sqlda FROM :pszSqlG
  562. PREPARE stmt44 INTO :sqlda FROM :pszSqlG
  563. PREPARE stmt45 INTO :sqlda FROM :pszSqlG
  564. PREPARE stmt46 INTO :sqlda FROM :pszSqlG
  565. PREPARE stmt47 INTO :sqlda FROM :pszSqlG
  566. PREPARE stmt48 INTO :sqlda FROM :pszSqlG
  567. PREPARE stmt49 INTO :sqlda FROM :pszSqlG
  568. PREPARE stmt50 INTO :sqlda FROM :pszSqlG
  569. PREPARE stmt51 INTO :sqlda FROM :pszSqlG
  570. PREPARE stmt52 INTO :sqlda FROM :pszSqlG
  571. PREPARE stmt53 INTO :sqlda FROM :pszSqlG
  572. PREPARE stmt54 INTO :sqlda FROM :pszSqlG
  573. PREPARE stmt55 INTO :sqlda FROM :pszSqlG
  574. PREPARE stmt56 INTO :sqlda FROM :pszSqlG
  575. PREPARE stmt57 INTO :sqlda FROM :pszSqlG
  576. PREPARE stmt58 INTO :sqlda FROM :pszSqlG
  577. PREPARE stmt59 INTO :sqlda FROM :pszSqlG
  578. PREPARE stmt60 INTO :sqlda FROM :pszSqlG
  579. PREPARE stmt61 INTO :sqlda FROM :pszSqlG
  580. PREPARE stmt62 INTO :sqlda FROM :pszSqlG
  581. PREPARE stmt63 INTO :sqlda FROM :pszSqlG
  582. PREPARE stmt64 INTO :sqlda FROM :pszSqlG
  583. PREPARE stmt65 INTO :sqlda FROM :pszSqlG
  584. PREPARE stmt66 INTO :sqlda FROM :pszSqlG
  585. PREPARE stmt67 INTO :sqlda FROM :pszSqlG
  586. PREPARE stmt68 INTO :sqlda FROM :pszSqlG
  587. PREPARE stmt69 INTO :sqlda FROM :pszSqlG
  588. PREPARE stmt70 INTO :sqlda FROM :pszSqlG
  589. PREPARE stmt71 INTO :sqlda FROM :pszSqlG
  590. PREPARE stmt72 INTO :sqlda FROM :pszSqlG
  591. PREPARE stmt73 INTO :sqlda FROM :pszSqlG
  592. PREPARE stmt74 INTO :sqlda FROM :pszSqlG
  593. PREPARE stmt75 INTO :sqlda FROM :pszSqlG
  594. PREPARE stmt76 INTO :sqlda FROM :pszSqlG
  595. PREPARE stmt77 INTO :sqlda FROM :pszSqlG
  596. PREPARE stmt78 INTO :sqlda FROM :pszSqlG
  597. PREPARE stmt79 INTO :sqlda FROM :pszSqlG
  598. PREPARE stmt80 INTO :sqlda FROM :pszSqlG
  599. PREPARE stmt81 INTO :sqlda FROM :pszSqlG
  600. PREPARE stmt82 INTO :sqlda FROM :pszSqlG
  601. PREPARE stmt83 INTO :sqlda FROM :pszSqlG
  602. PREPARE stmt84 INTO :sqlda FROM :pszSqlG
  603. PREPARE stmt85 INTO :sqlda FROM :pszSqlG
  604. PREPARE stmt86 INTO :sqlda FROM :pszSqlG
  605. PREPARE stmt87 INTO :sqlda FROM :pszSqlG
  606. PREPARE stmt88 INTO :sqlda FROM :pszSqlG
  607. PREPARE stmt89 INTO :sqlda FROM :pszSqlG
  608. PREPARE stmt90 INTO :sqlda FROM :pszSqlG
  609. PREPARE stmt91 INTO :sqlda FROM :pszSqlG
  610. PREPARE stmt92 INTO :sqlda FROM :pszSqlG
  611. PREPARE stmt93 INTO :sqlda FROM :pszSqlG
  612. PREPARE stmt94 INTO :sqlda FROM :pszSqlG
  613. PREPARE stmt95 INTO :sqlda FROM :pszSqlG
  614. PREPARE stmt96 INTO :sqlda FROM :pszSqlG
  615. PREPARE stmt97 INTO :sqlda FROM :pszSqlG
  616. PREPARE stmt98 INTO :sqlda FROM :pszSqlG
  617. PREPARE stmt99 INTO :sqlda FROM :pszSqlG
  618. PREPARE stmt100 INTO :sqlda FROM :pszSqlG
  619. PREPARE stmt101 INTO :sqlda FROM :pszSqlG
  620. PREPARE stmt102 INTO :sqlda FROM :pszSqlG
  621. PREPARE stmt103 INTO :sqlda FROM :pszSqlG
  622. PREPARE stmt104 INTO :sqlda FROM :pszSqlG
  623. PREPARE stmt105 INTO :sqlda FROM :pszSqlG
  624. PREPARE stmt106 INTO :sqlda FROM :pszSqlG
  625. PREPARE stmt107 INTO :sqlda FROM :pszSqlG
  626. PREPARE stmt108 INTO :sqlda FROM :pszSqlG
  627. PREPARE stmt109 INTO :sqlda FROM :pszSqlG
  628. PREPARE stmt110 INTO :sqlda FROM :pszSqlG
  629. PREPARE stmt111 INTO :sqlda FROM :pszSqlG
  630. PREPARE stmt112 INTO :sqlda FROM :pszSqlG
  631. PREPARE stmt113 INTO :sqlda FROM :pszSqlG
  632. PREPARE stmt114 INTO :sqlda FROM :pszSqlG
  633. PREPARE stmt115 INTO :sqlda FROM :pszSqlG
  634. PREPARE stmt116 INTO :sqlda FROM :pszSqlG
  635. PREPARE stmt117 INTO :sqlda FROM :pszSqlG
  636. PREPARE stmt118 INTO :sqlda FROM :pszSqlG
  637. PREPARE stmt119 INTO :sqlda FROM :pszSqlG
  638. PREPARE stmt120 INTO :sqlda FROM :pszSqlG
  639. PREPARE stmt121 INTO :sqlda FROM :pszSqlG
  640. PREPARE stmt122 INTO :sqlda FROM :pszSqlG
  641. PREPARE stmt123 INTO :sqlda FROM :pszSqlG
  642. PREPARE stmt124 INTO :sqlda FROM :pszSqlG
  643. PREPARE stmt125 INTO :sqlda FROM :pszSqlG
  644. PREPARE stmt126 INTO :sqlda FROM :pszSqlG
  645. PREPARE stmt127 INTO :sqlda FROM :pszSqlG
  646. PREPARE stmt128 INTO :sqlda FROM :pszSqlG
  647. DESCRIBE stmt1 INTO :pSqlda 
  648. DESCRIBE stmt2 INTO :pSqlda 
  649. DESCRIBE stmt3 INTO :pSqlda 
  650. DESCRIBE stmt4 INTO :pSqlda 
  651. DESCRIBE stmt5 INTO :pSqlda 
  652. DESCRIBE stmt6 INTO :pSqlda 
  653. DESCRIBE stmt7 INTO :pSqlda 
  654. DESCRIBE stmt8 INTO :pSqlda 
  655. DESCRIBE stmt9 INTO :pSqlda 
  656. DESCRIBE stmt10 INTO :pSqlda 
  657. DESCRIBE stmt11 INTO :pSqlda 
  658. DESCRIBE stmt12 INTO :pSqlda 
  659. DESCRIBE stmt13 INTO :pSqlda 
  660. DESCRIBE stmt14 INTO :pSqlda 
  661. DESCRIBE stmt15 INTO :pSqlda 
  662. DESCRIBE stmt16 INTO :pSqlda 
  663. DESCRIBE stmt17 INTO :pSqlda 
  664. DESCRIBE stmt18 INTO :pSqlda 
  665. DESCRIBE stmt19 INTO :pSqlda 
  666. DESCRIBE stmt20 INTO :pSqlda 
  667. DESCRIBE stmt21 INTO :pSqlda 
  668. DESCRIBE stmt22 INTO :pSqlda 
  669. DESCRIBE stmt23 INTO :pSqlda 
  670. DESCRIBE stmt24 INTO :pSqlda 
  671. DESCRIBE stmt25 INTO :pSqlda 
  672. DESCRIBE stmt26 INTO :pSqlda 
  673. DESCRIBE stmt27 INTO :pSqlda 
  674. DESCRIBE stmt28 INTO :pSqlda 
  675. DESCRIBE stmt29 INTO :pSqlda 
  676. DESCRIBE stmt30 INTO :pSqlda 
  677. DESCRIBE stmt31 INTO :pSqlda 
  678. DESCRIBE stmt32 INTO :pSqlda 
  679. DESCRIBE stmt33 INTO :pSqlda 
  680. DESCRIBE stmt34 INTO :pSqlda 
  681. DESCRIBE stmt35 INTO :pSqlda 
  682. DESCRIBE stmt36 INTO :pSqlda 
  683. DESCRIBE stmt37 INTO :pSqlda 
  684. DESCRIBE stmt38 INTO :pSqlda 
  685. DESCRIBE stmt39 INTO :pSqlda 
  686. DESCRIBE stmt40 INTO :pSqlda 
  687. DESCRIBE stmt41 INTO :pSqlda 
  688. DESCRIBE stmt42 INTO :pSqlda 
  689. DESCRIBE stmt43 INTO :pSqlda 
  690. DESCRIBE stmt44 INTO :pSqlda 
  691. DESCRIBE stmt45 INTO :pSqlda 
  692. DESCRIBE stmt46 INTO :pSqlda 
  693. DESCRIBE stmt47 INTO :pSqlda 
  694. DESCRIBE stmt48 INTO :pSqlda 
  695. DESCRIBE stmt49 INTO :pSqlda 
  696. DESCRIBE stmt50 INTO :pSqlda 
  697. DESCRIBE stmt51 INTO :pSqlda 
  698. DESCRIBE stmt52 INTO :pSqlda 
  699. DESCRIBE stmt53 INTO :pSqlda 
  700. DESCRIBE stmt54 INTO :pSqlda 
  701. DESCRIBE stmt55 INTO :pSqlda 
  702. DESCRIBE stmt56 INTO :pSqlda 
  703. DESCRIBE stmt57 INTO :pSqlda 
  704. DESCRIBE stmt58 INTO :pSqlda 
  705. DESCRIBE stmt59 INTO :pSqlda 
  706. DESCRIBE stmt60 INTO :pSqlda 
  707. DESCRIBE stmt61 INTO :pSqlda 
  708. DESCRIBE stmt62 INTO :pSqlda 
  709. DESCRIBE stmt63 INTO :pSqlda 
  710. DESCRIBE stmt64 INTO :pSqlda 
  711. DESCRIBE stmt65 INTO :pSqlda 
  712. DESCRIBE stmt66 INTO :pSqlda 
  713. DESCRIBE stmt67 INTO :pSqlda 
  714. DESCRIBE stmt68 INTO :pSqlda 
  715. DESCRIBE stmt69 INTO :pSqlda 
  716. DESCRIBE stmt70 INTO :pSqlda 
  717. DESCRIBE stmt71 INTO :pSqlda 
  718. DESCRIBE stmt72 INTO :pSqlda 
  719. DESCRIBE stmt73 INTO :pSqlda 
  720. DESCRIBE stmt74 INTO :pSqlda 
  721. DESCRIBE stmt75 INTO :pSqlda 
  722. DESCRIBE stmt76 INTO :pSqlda 
  723. DESCRIBE stmt77 INTO :pSqlda 
  724. DESCRIBE stmt78 INTO :pSqlda 
  725. DESCRIBE stmt79 INTO :pSqlda 
  726. DESCRIBE stmt80 INTO :pSqlda 
  727. DESCRIBE stmt81 INTO :pSqlda 
  728. DESCRIBE stmt82 INTO :pSqlda 
  729. DESCRIBE stmt83 INTO :pSqlda 
  730. DESCRIBE stmt84 INTO :pSqlda 
  731. DESCRIBE stmt85 INTO :pSqlda 
  732. DESCRIBE stmt86 INTO :pSqlda 
  733. DESCRIBE stmt87 INTO :pSqlda 
  734. DESCRIBE stmt88 INTO :pSqlda 
  735. DESCRIBE stmt89 INTO :pSqlda 
  736. DESCRIBE stmt90 INTO :pSqlda 
  737. DESCRIBE stmt91 INTO :pSqlda 
  738. DESCRIBE stmt92 INTO :pSqlda 
  739. DESCRIBE stmt93 INTO :pSqlda 
  740. DESCRIBE stmt94 INTO :pSqlda 
  741. DESCRIBE stmt95 INTO :pSqlda 
  742. DESCRIBE stmt96 INTO :pSqlda 
  743. DESCRIBE stmt97 INTO :pSqlda 
  744. DESCRIBE stmt98 INTO :pSqlda 
  745. DESCRIBE stmt99 INTO :pSqlda 
  746. DESCRIBE stmt100 INTO :pSqlda 
  747. DESCRIBE stmt101 INTO :pSqlda 
  748. DESCRIBE stmt102 INTO :pSqlda 
  749. DESCRIBE stmt103 INTO :pSqlda 
  750. DESCRIBE stmt104 INTO :pSqlda 
  751. DESCRIBE stmt105 INTO :pSqlda 
  752. DESCRIBE stmt106 INTO :pSqlda 
  753. DESCRIBE stmt107 INTO :pSqlda 
  754. DESCRIBE stmt108 INTO :pSqlda 
  755. DESCRIBE stmt109 INTO :pSqlda 
  756. DESCRIBE stmt110 INTO :pSqlda 
  757. DESCRIBE stmt111 INTO :pSqlda 
  758. DESCRIBE stmt112 INTO :pSqlda 
  759. DESCRIBE stmt113 INTO :pSqlda 
  760. DESCRIBE stmt114 INTO :pSqlda 
  761. DESCRIBE stmt115 INTO :pSqlda 
  762. DESCRIBE stmt116 INTO :pSqlda 
  763. DESCRIBE stmt117 INTO :pSqlda 
  764. DESCRIBE stmt118 INTO :pSqlda 
  765. DESCRIBE stmt119 INTO :pSqlda 
  766. DESCRIBE stmt120 INTO :pSqlda 
  767. DESCRIBE stmt121 INTO :pSqlda 
  768. DESCRIBE stmt122 INTO :pSqlda 
  769. DESCRIBE stmt123 INTO :pSqlda 
  770. DESCRIBE stmt124 INTO :pSqlda 
  771. DESCRIBE stmt125 INTO :pSqlda 
  772. DESCRIBE stmt126 INTO :pSqlda 
  773. DESCRIBE stmt127 INTO :pSqlda 
  774. DESCRIBE stmt128 INTO :pSqlda 
  775. EXECUTE IMMEDIATE :pszSqlG
  776. PREPARE stmt130 INTO :sqlda FROM :pszSqlG
  777. EXECUTE stmt130 USING DESCRIPTOR :pSqlda 
  778. BEGIN DECLARE SECTION
  779. END DECLARE SECTION
  780. DECLARE t1 CURSOR FOR          SELECT NAME, COLNAMES, UNIQUERULE, COLCOUNT FROM SYSIBM.SYSINDEXES              WHERE TBNAME = :szTbName AND TBCREATOR = :szCreator AND UNIQUERULE <> 'D'
  781. OPEN t1
  782. FETCH t1 INTO :szName, :szColumns, :szUniqueRule, :iColCount
  783. CLOSE t1
  784. BEGIN DECLARE SECTION
  785. END DECLARE SECTION
  786. DECLARE t4 CURSOR FOR          SELECT NAME, CREATOR FROM SYSIBM.SYSTABLES              WHERE CREATOR <> 'SYSIBM' AND CREATOR <> 'QRWSYS'
  787. OPEN t4
  788. FETCH t4 INTO :szTblName, :szTCreator
  789. FETCH t4 INTO :szTblName, :szTCreator
  790. CLOSE t4
  791. COMMIT
  792. COMMIT
  793. ROLLBACK
  794. pszSqlG
  795. szFullName
  796. szTbName
  797. szCreator
  798. szName
  799. szColumns
  800. szUniqueColumns
  801. szUniqueRule
  802. iColCount
  803. szTblName
  804. szTCreator
  805.